home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / abillc1a / frmbillc.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1999-09-05  |  2.4 KB  |  90 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "I thought this was funny.  No offense to anyone"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   4680
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton Command2 
  16.       Caption         =   "NO!"
  17.       Height          =   495
  18.       Left            =   2760
  19.       TabIndex        =   1
  20.       Top             =   2160
  21.       Width           =   855
  22.    End
  23.    Begin VB.Timer Timer1 
  24.       Interval        =   1
  25.       Left            =   1200
  26.       Top             =   2040
  27.    End
  28.    Begin VB.CommandButton Command1 
  29.       Caption         =   "YES"
  30.       Height          =   495
  31.       Left            =   600
  32.       TabIndex        =   0
  33.       Top             =   2160
  34.       UseMaskColor    =   -1  'True
  35.       Width           =   1095
  36.    End
  37.    Begin VB.Label Label2 
  38.       Caption         =   "Should i, Bill Clinton, resign and leave public life in shame?"
  39.       Height          =   375
  40.       Left            =   240
  41.       TabIndex        =   3
  42.       Top             =   1560
  43.       Width           =   2295
  44.    End
  45.    Begin VB.Label Label1 
  46.       Caption         =   $"frmbillclinton.frx":0000
  47.       Height          =   975
  48.       Left            =   240
  49.       TabIndex        =   2
  50.       Top             =   240
  51.       Width           =   4215
  52.    End
  53. Attribute VB_Name = "Form1"
  54. Attribute VB_GlobalNameSpace = False
  55. Attribute VB_Creatable = False
  56. Attribute VB_PredeclaredId = True
  57. Attribute VB_Exposed = False
  58. Private Sub Command1_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  59. If Y < 200 Then
  60. Command1.Top = Command1.Top + 50
  61. End If
  62. If X < 500 Then
  63. Command1.Left = Command1.Left + 50
  64. End If
  65. If Y > 200 Then
  66. Command1.Top = Command1.Top - 50
  67. End If
  68. If X > 500 Then
  69. Command1.Left = Command1.Left - 50
  70. End If
  71. End Sub
  72. Private Sub Command2_Click()
  73. Unload Me
  74. MsgBox ("Thanks for your honest vote of support!")
  75. End Sub
  76. Private Sub Timer1_Timer()
  77. If Command1.Top > 2500 Then
  78. Command1.Top = 10
  79. End If
  80. If Command1.Top < 10 Then
  81. Command1.Top = 2500
  82. End If
  83. If Command1.Left > 3700 Then
  84. Command1.Left = 10
  85. End If
  86. If Command1.Left < 10 Then
  87. Command1.Left = 3500
  88. End If
  89. End Sub
  90.